10 ' Нахождение простых чисел в заданном диапазоне
20 INPUT "Начало диапазона ="; b%: IF b% < 2 THEN 20
30 INPUT "Конец диапазона ="; e%: IF e% < 2 THEN 30
40 IF b% > e% THEN SWAP b%, e%
50 flag2 = 0
60 PRINT "Простые числа в диапазоне ";
70 FOR chislo = b% TO e%
80 flag1 = 0
90 FOR delitel = 2 TO chislo \ 2
100 IF chislo MOD delitel = 0 THEN flag1 = 1: delitel = chislo
110 NEXT delitel
120 IF flag1 = 0 THEN PRINT chislo; : flag2 = 1
130 NEXT  chislo
140 IF flag2 = 0 THEN PRINT "отсутствуют."
150 END